Public Partial Class FrmInfoSolicitudServicio
    Inherits System.Web.UI.Page
    Private Banco As CapaDeNegocios.nBanco = New CapaDeNegocios.nBanco
    Private Cuenta As CapaDeNegocios.nCuenta = New CapaDeNegocios.nCuenta
    Private ChequeTerceros As CapaDeNegocios.nChequesTerceros = New CapaDeNegocios.nChequesTerceros

    Dim IdBanco As Integer
    Dim IdCuenta As Integer
    Dim IdCheque As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("Login") = "Anonimo" Then
            Response.Redirect("/")
        End If

        If Not Page.IsPostBack Then
            If Request.QueryString("IdBanco") <> "" Then
                IdBanco = CInt(Request.QueryString("IdBanco"))
                IdCuenta = CInt(Request.QueryString("IdCuenta"))
                Dim dtsBanco As DataSet = Banco.ListarBanco(IdBanco, "", "")
                Dim dtsCuenta As DataSet = Cuenta.ListarCuenta(IdCuenta, "", "", IdBanco, "")
                PnlBanco.Visible = True
                LblBancoDenominacion.Text = dtsBanco.Tables(0).Rows(0)("Denominacion").ToString()
                LblCuentaChequera.Text = dtsCuenta.Tables(0).Rows(0)("Chequera").ToString()
                LblCuentaNumeroCuenta.Text = dtsCuenta.Tables(0).Rows(0)("NumeroCuenta").ToString()
                LblCuentaTipoCuenta.Text = dtsCuenta.Tables(0).Rows(0)("TipoCuenta").ToString()
            End If
            If Request.QueryString("IdCheque") <> "" Then
                IdCheque = Request.QueryString("IdCheque")
                Dim dtsCheque As DataSet = ChequeTerceros.BuscarCheque(IdCheque, "", "", "", "", "", "", "")
                PnlCheque.Visible = True
                LblChequeANombreDe.Text = dtsCheque.Tables(0).Rows(0)("ANombreDe").ToString()
                LblChequeBanco.Text = dtsCheque.Tables(0).Rows(0)("Banco").ToString()
                LblChequeEstado.Text = dtsCheque.Tables(0).Rows(0)("Estado").ToString()
                LblChequeFechaEmision.Text = dtsCheque.Tables(0).Rows(0)("FechaEmision").ToString()
                LblChequeFechaVence.Text = dtsCheque.Tables(0).Rows(0)("FechaVence").ToString()
                LblChequeImporte.Text = dtsCheque.Tables(0).Rows(0)("Importe").ToString()
                LblChequeObservacion.Text = dtsCheque.Tables(0).Rows(0)("Observacion").ToString()
                LblChequeIdCheque.Text = dtsCheque.Tables(0).Rows(0)("IdCheque").ToString()
            End If
        End If
    End Sub


End Class